Aminet 34/Aminet 34 (2000)(Schatztruhe)[!][Dec 1999].iso/Aminet/comm/irc/cybershiela.lha/cs/cs_fuck.amirx

Text File | 1999-07-05 | 1KB | 27 lines

/* CyberShiela MultiResponse File */
nick=getclip('NICK')
xx=random(1,13,time('s'))
select
when xx=1 then a="Shut the fuck up $1."
when xx=2 then a="put a cap on the vulgar language $1."
when xx=3 then a="$1.. your a premature ejaculator aren't you?"
when xx=4 then a="FUCK OFF $1.. I've had enough of your shit today!!"
when xx=5 then a="Anyone got a bar of soap for $1's mouth?"
when xx=6 then a="/me thinks $1's mouth needs a good cleaning."
when xx=7 then a="What the fuck $1?"
when xx=8 then a="Fuck?? $1..never had it never will?"
when xx=9 then a="Shut up $1..you furbie fucker."
when xx=10 then a="No $1..YOU GO FUCK YOURSELF!! "
when xx=11 then a="Can Someone kick this fucking lamer $1 out of here?"
when xx=12 then a="No Fucking swearing $1!!"
when xx=13 then a="Damn you $1!!"
end
modif:
user=nick
old=a
m=length(user);temp=a;x=pos("$1",temp);if x~=0 then do;temp2 = delstr(temp,x,2);old = insert(user,temp2,x-1,m," ");end
temp=old;m=length(channam);x=pos("$chan",temp);if x~=0 then do;temp2 = delstr(temp,x,5);old = insert(channam,temp2,x-1,m," ");end
a=old
'say 'A
exit